PACKAGE Sort IS
   TYPE IntArray IS ARRAY (Integer RANGE <>) OF Integer;
   PROCEDURE SelSort (A: IN IntArray; B: OUT IntArray);
   PROCEDURE FindMaxIndex (A: IN IntArray; I: OUT Integer);
   PROCEDURE MaxSort (A: IN IntArray; B: OUT IntArray);
   PROCEDURE AnzXin (A: IN IntArray; X: IN Integer; Y: OUT Integer);
   PROCEDURE IsPerm (A, B: IN IntArray; W: OUT Integer);
END Sort;